home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs30.d81 / automenu.lbr / SWITCHER64.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  51 lines
  1. 10 A=PEEK(186):@#A:PRINTCHR$(31)
  2. 20 PRINT"[147]@"CHR$(34)"S-8"CHR$(34):PRINT:PRINT
  3. 30 PRINT"GOTO50"
  4. 40 POKE 198,3:POKE631,19:POKE632,13:POKE633,13:END
  5. 50 @#8:IFVAL(TI$)-235000>0 THEN TI$="000000"
  6. 55 DIM A$(50),B$(50),P$(50),N$(50),S$(50)
  7. 60 OPEN2,8,8,"-MENU128,S,R":INPUT#2,A
  8. 70 FORU=1TOA+1:INPUT#2,A$(U),B$(U),P$(U),N$(U),S$(U)
  9. 80 IF A$(U)="_!" THEN A$(U)=""
  10. 90 IF B$(U)="_!" THEN B$(U)=""
  11. 100 IF P$(U)="_!" THEN P$(U)=""
  12. 110 IF N$(U)="_!" THEN N$(U)=""
  13. 120 IF S$(U)="_!" THEN S$(U)=""
  14. 130 NEXTU:CLOSE2
  15. 140 IF A$(A+1)=""THEN 160
  16. 150 Z=A+1:A$(Z)="":GOTO300
  17. 160 REM **** MENU PROGRAM WILL GO HERE ****
  18. 170 REM
  19. 180 REM
  20. 190 REM
  21. 200 REM  PRINT"[147]/"CHR$(34)"MENU64"CHR$(34):PRINT:PRINT
  22. 210 REM  PRINT"GOTO10"
  23. 220 REM POKE 198,3:POKE631,19:POKE632,13:POKE633,13:END
  24. 230 REM
  25. 240 REM
  26. 250 REM
  27. 260 REM
  28. 270 REM
  29. 280 REM
  30. 290 GOTO9000
  31. 300 GOSUB370
  32. 310 OPEN15,8,15:PRINT#15,"CP";B$(Z):V=TI
  33. 320 IF TI-V<20THEN320
  34. 330 PRINT#15,"CD:";P$(Z)
  35. 340 CLOSE15:V=TI
  36. 350 IF TI-V<20THEN350
  37. 360 PRINT"[147]/";(N$(Z));"":PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13:END
  38. 370 OPEN2,8,8,"@:-MENU128,S,W":PRINT#2,A
  39. 380 FORU=1TOA+1
  40. 390 IF A$(U)="" THEN A$(U)="_!"
  41. 400 IF B$(U)="" THEN B$(U)="_!"
  42. 410 IF P$(U)="" THEN P$(U)="_!"
  43. 420 IF N$(U)="" THEN N$(U)="_!"
  44. 430 IF S$(U)="" THEN S$(U)="_!"
  45. 440 PRINT#2,A$(U):PRINT#2,B$(U):PRINT#2,P$(U):PRINT#2,N$(U)
  46. 450 PRINT#2,S$(U):NEXTU:CLOSE2:RETURN
  47. 1000 GOTO 200
  48. 9000 PRINT"[147][154]       JIFFYDOS V6.01 (C)1989 CMD
  49. 9010 [153]" C-64 BASIC V2   38911 BASIC BYTES FREE
  50. 9020 END
  51.